home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 December / 64er_Magazin_91-12_1991_Markt__Technik_de_Side_A.d64 / setup v2.0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  124 lines
  1. 5 lw=8: rem laufwerksnummer fuer konfigdatei
  2. 10 print"[147]     64'er messlabor  setup/programm    "
  3. 20 print"mit diesem programm koennen sie das"
  4. 30 print"64'er messlabor[146] an ihre wuensche"
  5. 40 print"optimal anpassen. befolgen sie dazu nur"
  6. 50 print"die anweisungen, die auf dem bildschirm"
  7. 60 print"erscheinen und beachten sie die hinweise"
  8. 70 print"in der jeweiligen 64'er[146]-ausgabe!"
  9. 75 print""
  10. 80 print"[145]weiter -> taste druecken"
  11. 85 fora=1to200:nexta
  12. 90 geta$:if a$<>"" then 150
  13. 100 print"[145]weiter -> taste druecken"
  14. 110 fora=1to200:nexta
  15. 120 goto 80
  16. 150 print"[147]     64'er messlabor  setup/programm    "
  17. 160 print"wieviele analoge module haben sie"
  18. 165 print"installiert (1-6)? ";
  19. 170 get i$
  20. 180 ifi$=""then170
  21. 190 ifi$<"1"ori$>"6"thenprint:print"[145][145][145][145]";:goto160
  22. 200 print""i$
  23. 210 n=val(i$)
  24. 215 for a = 1 to 300: next a
  25. 220 for m = 1 to n
  26. 222 :  f=0
  27. 230 :  print"[147]             setup modul "m;"[157]             "
  28. 240 :  print"welche groesse misst modul ";m" ?"
  29. 250 :  print"(temperatur, luftdruck usw.)"
  30. 255 :  print"maximal 10 buchstaben"
  31. 256 :  l=10
  32. 260 :  gosub2000
  33. 261 :  g$(m)=i$
  34. 262 :  print
  35. 270 :  print"geben sie bitte die einheit an!"
  36. 280 :  print"(grad, volt usw.)"
  37. 290 :  print"maximal 4 buchstaben"
  38. 300 :  l=4
  39. 310 :  gosub 2000
  40. 311 :  e$(m)=i$
  41. 315 :  print"[147]             setup modul "m;"[157]             "
  42. 320 :  print"auf welcher bildschirmposition"
  43. 330 :  print"soll die anzeige erfolgen?"
  44. 340 :  print""
  45. 350 :  for b = 1 to 6
  46. 360 :     if p(b)<>0thenprint"      [157][157][157]   [157][157][157]      [145][145]";:goto380
  47. 370 :     print"      [157][157][157]"b"[157] [157][157][157]   [146]   [145][145]";
  48. 380 :     if b = 3 then print""
  49. 390 :  next b
  50. 395 :  print""
  51. 400 :  geta$
  52. 410 :  ifa$=""then400
  53. 420 :  ifa$<"1"ora$>"6"then400
  54. 422 :  f=0
  55. 430 :  for b = 1 to 6
  56. 440 :    if p(val(a$))<>0then f=1
  57. 450 :  next b
  58. 460 :  iff=1then400
  59. 470 :  print""a$
  60. 480 :  p(val(a$))=1
  61. 490 :  b(m)=val(a$)
  62. 500 :  print"[147]             setup modul "m;"[157]             "
  63. 510 :  print"sollen die daten auf diskette"
  64. 520 :  print"archiviert werden (j/n)?"
  65. 530 :  geta$
  66. 540 :  ifa$<>"j"anda$<>"n"then530
  67. 550 :  a(m)=(a$="j")
  68. 560 :  print""a$
  69. 561 :  forx=1to200:nextx
  70. 570 :  ifa$="n"then650
  71. 580 :  print"welchen namen soll die archiv-"
  72. 590 :  print"datei erhalten (max 16 zeichen)?"
  73. 600 :  print"achtung, dateien, die schon"
  74. 610 :  print"unter diesem namen existieren,"
  75. 620 :  print"koennen zerstoert werden!"
  76. 630 :  l=16
  77. 635 :  i$=""
  78. 640 :  gosub2000
  79. 645 :  ifi$=""theni$=g$(m)
  80. 650 :  n$(m)=i$
  81. 660 next m
  82. 700 print"[147]             setup modul              "
  83. 710 print"legen sie die diskette in laufwerk"
  84. 720 print""lw" ein und druecken eine taste"
  85. 730 print"zum speichern der konfigurations-"
  86. 740 print"datei!"
  87. 750 geta$
  88. 760 ifa$=""then750
  89. 770 open1,lw,15,"i"
  90. 780 input#1,f,f$,t,s
  91. 790 iff<>0thengosub3000
  92. 800 open2,lw,2,"@:konfigmes,s,w"
  93. 805 print#2,n
  94. 810 for m = 1 to n
  95. 820 :  print#2,g$(m)
  96. 830 :  print#2,e$(m)
  97. 840 :  print#2,b(m)
  98. 850 :  print#2,a(m)
  99. 860 :  print#2,n$(m)
  100. 870 next m
  101. 880 close2
  102. 890 close1
  103. 900 print"[147]good bye!"
  104. 910 fora=1ton
  105. 920 if a(a) <> -1 then990
  106. 930 open1,lw,15
  107. 940 open2,lw,2,n$(a)+",l,"+chr$(16)
  108. 950 print#1,"p"+chr$(2)+chr$(100)+chr$(0)+chr$(0)
  109. 960 print#1,"p"+chr$(2)+chr$(100)+chr$(0)+chr$(0)
  110. 970 print#2,0
  111. 980 close2:close1
  112. 985 next a
  113. 990 end
  114. 2000 x=0:i$="":a$=""
  115. 2001 geta$
  116. 2010 ifa$=""then2001
  117. 2020 if(a$<"a"ora$>"z")anda$<>"[148]"anda$<>chr$(13)then2001
  118. 2021 x=x+1:ifx=l+1thena$=chr$(13)
  119. 2025 ifa$=chr$(13)thenreturn
  120. 2026 ifa$="[148]"theni$=left$(i$,len(i$)-1):print"[157]";:x=x-2:goto2001
  121. 2030 i$=i$+a$
  122. 2040 print""a$;
  123. 2050 goto2001
  124.